home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / D-G / Graphics 1.0.sit / GRAPHICS 1.0 / GRAF Basic / GRAF.Basic.code < prev    next >
Encoding:
Text File  |  1995-05-05  |  1.3 KB  |  59 lines  |  [TEXT/PJMM]
  1. program GRAFBasic;  {This program is a very simple demo that animates balls bouncing around, and colliding}
  2.  
  3.     uses
  4.         graphics;
  5.  
  6.     var
  7.         aa, ab: rect;
  8.         myface: Face;
  9.         temp: integer;
  10.         l: longint;
  11.  
  12.     procedure setitup (var me: sprite);
  13.     begin
  14.         me.speed.v := 5;
  15.     end;
  16.  
  17.     procedure dotask (var me: sprite);
  18.     begin
  19.         me.position.v := me.position.v + me.speed.v;
  20.         if me.position.v > gGRAF.scrnrect.bottom - 16 then
  21.             begin
  22.                 me.speed.v := -me.speed.v;
  23.                 playsound(true);
  24.             end;
  25.         if me.position.v < gGRAF.scrnrect.top - 16 then
  26.             begin
  27.                 me.speed.v := -me.speed.v;
  28.                 playsound(true);
  29.             end;
  30.     end;
  31.  
  32.     procedure dohit (var me, him: sprite);
  33.     begin
  34.     end;
  35.  
  36.     procedure setupsprite;
  37.     begin
  38.         setrect(aa, 0, 0, 32, 32);
  39.         setrect(ab, 0, 0, 32, 32);
  40.         myface := newface(128, aa, ab);
  41.         getsound(128);
  42.         temp := NewSprite(1, 300, 300, 0, myface, @dotask, @dohit, @setitup);
  43.         temp := NewSprite(2, 250, 250, 0, myface, @dotask, @dohit, @setitup);
  44.         temp := NewSprite(3, 200, 200, 0, myface, @dotask, @dohit, @setitup);
  45.         temp := NewSprite(4, 150, 150, 0, myface, @dotask, @dohit, @setitup);
  46.         temp := NewSprite(5, 100, 100, 0, myface, @dotask, @dohit, @setitup);
  47.         temp := NewSprite(6, 50, 50, 0, myface, @dotask, @dohit, @setitup);
  48.     end;
  49.  
  50. begin
  51.     GRAFInit(128, 512, 342);
  52.     setupsprite;
  53.     repeat
  54.         l := tickcount;
  55.         RunGRAF(2);
  56.         while l > tickcount - 4 do
  57.             ;
  58.     until button;
  59. end.